home *** CD-ROM | disk | FTP | other *** search
/ William Shakespeare - The Complete Works / William Shakespeare - The Complete Works on CD-ROM.iso / library / exe / highvb.bas < prev    next >
Encoding:
BASIC Source File  |  1994-03-18  |  40.2 KB  |  966 lines
  1. '============================================================================'
  2. '                                                                            '
  3. ' Visual Basic global constant file.  This file can be loaded into the       '
  4. ' global module.   NOTE: This file includes ALL the declarations for HighEdit'
  5. ' including those in HECMDLG.BI.  If you are using VB2 and want to keep them '
  6. ' separate, search for HECMDLG.BI and delete everything between the double   '
  7. ' lines.  These constants had to be combined into one file for VB1 compat-   '
  8. ' ibility.                                                                   '
  9. '                                                                            '
  10. ' Some constants are commented out because they have duplicates (for         '
  11. ' example, NONE appears in several places).                                  '
  12. '                                                                            '
  13. '============================================================================'
  14.  
  15. '========='
  16. '         '
  17. ' General '
  18. '         '
  19. '========='
  20.  
  21. ' Booleans
  22. 'TRUE/FALSE are keywords in VB2 so we use these to avoid a conflict
  23. Global Const gcTRUE = -1
  24. Global Const gcFALSE = 0
  25. Global gUSECMNDLG
  26.  
  27. '=================='
  28. '                  '
  29. ' Event parameters '
  30. '                  '
  31. '=================='
  32.  
  33. ' Button and Shift (KeyDown, KeyUp, MouseDown, MouseMove, MouseUp)
  34. Global Const SHIFT_MASK = 1
  35. Global Const CTRL_MASK = 2
  36. Global Const ALT_MASK = 4
  37. Global Const LEFT_BUTTON = 1
  38. Global Const RIGHT_BUTTON = 2
  39. Global Const MIDDLE_BUTTON = 4
  40.  
  41. ' ErrNum (LinkError)
  42. Global Const WRONG_FORMAT = 1
  43. Global Const REQUEST_WITHOUT_INIT = 2
  44. Global Const DDE_WITHOUT_INIT = 3
  45. Global Const ADVISE_WITHOUT_INIT = 4
  46. Global Const POKE_WITHOUT_INIT = 5
  47. Global Const DDE_SERVER_CLOSED = 6
  48. Global Const TOO_MANY_LINKS = 7
  49. Global Const STRING_TOO_LONG = 8
  50. Global Const INVALID_CONTROL_ARRAY_REFERENCE = 9
  51. Global Const UNEXPECTED_DDE = 10
  52. Global Const OUT_OF_MEMORY = 11
  53. Global Const SERVER_ATTEMPTED_CLIENT_OPERATION = 12
  54.  
  55. ' KeyCode (KeyDown, KeyUp)
  56. Global Const KEY_LBUTTON = &H1
  57. Global Const KEY_RBUTTON = &H2
  58. Global Const KEY_CANCEL = &H3
  59. Global Const KEY_MBUTTON = &H4         ' NOT contiguous with L & RBUTTON
  60. Global Const KEY_BACK = &H8
  61. Global Const KEY_TAB = &H9
  62. Global Const KEY_CLEAR = &HC
  63. Global Const KEY_RETURN = &HD
  64. Global Const KEY_SHIFT = &H10
  65. Global Const KEY_CONTROL = &H11
  66. Global Const KEY_MENU = &H12
  67. Global Const KEY_PAUSE = &H13
  68. Global Const KEY_CAPITAL = &H14
  69. Global Const KEY_ESCAPE = &H1B
  70. Global Const KEY_SPACE = &H20
  71. Global Const KEY_PRIOR = &H21
  72. Global Const KEY_NEXT = &H22
  73. Global Const KEY_END = &H23
  74. Global Const KEY_HOME = &H24
  75. Global Const KEY_LEFT = &H25
  76. Global Const KEY_UP = &H26
  77. Global Const KEY_RIGHT = &H27
  78. Global Const KEY_DOWN = &H28
  79. Global Const KEY_SELECT = &H29
  80. Global Const KEY_PRINT = &H2A
  81. Global Const KEY_EXECUTE = &H2B
  82. Global Const KEY_SNAPSHOT = &H2C
  83. Global Const KEY_INSERT = &H2D
  84. Global Const KEY_DELETE = &H2E
  85. Global Const KEY_HELP = &H2F
  86.  
  87. ' KEY_A thru KEY_Z are the same as their ASCII equivalents: 'A' thru 'Z'
  88. ' KEY_0 thru KEY_9 are the same as their ASCII equivalents: '0' thru '9'
  89.  
  90. Global Const KEY_NUMPAD0 = &H60
  91. Global Const KEY_NUMPAD1 = &H61
  92. Global Const KEY_NUMPAD2 = &H62
  93. Global Const KEY_NUMPAD3 = &H63
  94. Global Const KEY_NUMPAD4 = &H64
  95. Global Const KEY_NUMPAD5 = &H65
  96. Global Const KEY_NUMPAD6 = &H66
  97. Global Const KEY_NUMPAD7 = &H67
  98. Global Const KEY_NUMPAD8 = &H68
  99. Global Const KEY_NUMPAD9 = &H69
  100. Global Const KEY_MULTIPLY = &H6A
  101. Global Const KEY_ADD = &H6B
  102. Global Const KEY_SEPARATOR = &H6C
  103. Global Const KEY_SUBTRACT = &H6D
  104. Global Const KEY_DECIMAL = &H6E
  105. Global Const KEY_DIVIDE = &H6F
  106. Global Const KEY_F1 = &H70
  107. Global Const KEY_F2 = &H71
  108. Global Const KEY_F3 = &H72
  109. Global Const KEY_F4 = &H73
  110. Global Const KEY_F5 = &H74
  111. Global Const KEY_F6 = &H75
  112. Global Const KEY_F7 = &H76
  113. Global Const KEY_F8 = &H77
  114. Global Const KEY_F9 = &H78
  115. Global Const KEY_F10 = &H79
  116. Global Const KEY_F11 = &H7A
  117. Global Const KEY_F12 = &H7B
  118. Global Const KEY_F13 = &H7C
  119. Global Const KEY_F14 = &H7D
  120. Global Const KEY_F15 = &H7E
  121. Global Const KEY_F16 = &H7F
  122. Global Const KEY_NUMLOCK = &H90
  123.  
  124. ' State (DragOver)
  125. Global Const ENTER = 0
  126. Global Const LEAVE = 1
  127. Global Const OVER = 2
  128.  
  129. '====================='
  130. '                     '
  131. ' Function parameters '
  132. '                     '
  133. '====================='
  134.  
  135. ' MsgBox
  136. Global Const MB_OK = 0                 ' OK button only
  137. Global Const MB_OKCANCEL = 1           ' OK and Cancel buttons
  138. Global Const MB_ABORTRETRYIGNORE = 2   ' Abort, Retry, and Ignore buttons
  139. Global Const MB_YESNOCANCEL = 3        ' Yes, No, and Cancel buttons
  140. Global Const MB_YESNO = 4              ' Yes and No buttons
  141. Global Const MB_RETRYCANCEL = 5        ' Retry and Cancel buttons
  142.  
  143. Global Const MB_ICONSTOP = 16          ' Critical message
  144. Global Const MB_ICONQUESTION = 32      ' Warning query
  145. Global Const MB_ICONEXCLAMATION = 48   ' Warning message
  146. Global Const MB_ICONINFORMATION = 64   ' Information message
  147.  
  148. Global Const MB_DEFBUTTON1 = 0         ' First button is default
  149. Global Const MB_DEFBUTTON2 = 256       ' Second button is default
  150. Global Const MB_DEFBUTTON3 = 512       ' Third button is default
  151.  
  152. '==================='
  153. '                   '
  154. ' Method parameters '
  155. '                   '
  156. '==================='
  157.  
  158. ' Drag (controls)
  159. Global Const CANCEL = 0
  160. Global Const BEGIN_DRAG = 1
  161. Global Const END_DRAG = 2
  162.  
  163. ' GetData, GetFormat, SetData (Clipboard)
  164. Global Const CF_LINK = &HBF00
  165. Global Const CF_TEXT = 1
  166. Global Const CF_BITMAP = 2
  167. Global Const CF_METAFILE = 3
  168. Global Const CF_DIB = 8
  169.  
  170. ' Show (form)
  171. Global Const MODAL = 1
  172. Global Const MODELESS = 0
  173.  
  174. '================='
  175. '                 '
  176. ' Property values '
  177. '                 '
  178. '================='
  179.  
  180. ' Alignment (label)
  181. Global Const LEFT_JUSTIFY = 0          ' 0 - Left Justify
  182. Global Const RIGHT_JUSTIFY = 1         ' 1 - Right Justify
  183. Global Const CENTER = 2                ' 2 - Center
  184.  
  185. ' BackColor, ForeColor, FillColor (standard RGB colors: form, controls)
  186. Global Const BLACK = &H0&
  187. Global Const RED = &HFF&
  188. Global Const GREEN = &HFF00&
  189. Global Const YELLOW = &HFFFF&
  190. Global Const BLUE = &HFF0000
  191. Global Const MAGENTA = &HFF00FF
  192. Global Const CYAN = &HFFFF00
  193. Global Const WHITE = &HFFFFFF
  194.  
  195. ' BackColor, ForeColor, FillColor (system colors: form, controls)
  196. Global Const SCROLL_BARS = &H80000000           ' Scroll-bars gray area.
  197. Global Const DESKTOP = &H80000001               ' Desktop.
  198. Global Const ACTIVE_TITLE_BAR = &H80000002      ' Active window caption.
  199. Global Const INACTIVE_TITLE_BAR = &H80000003    ' Inactive window caption.
  200. Global Const MENU_BAR = &H80000004              ' Menu background.
  201. Global Const WINDOW_BACKGROUND = &H80000005     ' Window background.
  202. Global Const WINDOW_FRAME = &H80000006          ' Window frame.
  203. Global Const MENU_TEXT = &H80000007             ' Text in menus.
  204. Global Const WINDOW_TEXT = &H80000008           ' Text in windows.
  205. Global Const TITLE_BAR_TEXT = &H80000009        ' Text in caption, size box, scroll-bar arrow box..
  206. Global Const ACTIVE_BORDER = &H8000000A         ' Active window border.
  207. Global Const INACTIVE_BORDER = &H8000000B       ' Inactive window border.
  208. Global Const APPLICATION_WORKSPACE = &H8000000C ' Background color of multiple document interface (MDI) applications.
  209. Global Const HIGHLIGHT = &H8000000D             ' Items selected item in a control.
  210. Global Const HIGHLIGHT_TEXT = &H8000000E        ' Text of item selected in a control.
  211. Global Const BUTTON_FACE = &H8000000F           ' Face shading on command buttons.
  212. Global Const BUTTON_SHADOW = &H80000010         ' Edge shading on command buttons.
  213. Global Const GRAY_TEXT = &H80000011             ' Grayed (disabled) text.  This color is set to 0 if the current display driver does not support a solid gray color.
  214. Global Const BUTTON_TEXT = &H80000012           ' Text on push buttons.
  215.  
  216. ' BorderStyle (form, label, picture box, text box)
  217. Global Const NONE = 0                  ' 0 - None
  218. Global Const FIXED_SINGLE = 1          ' 1 - Fixed Single
  219. Global Const SIZABLE = 2               ' 2 - Sizable (Forms only)
  220. Global Const FIXED_DOUBLE = 3          ' 3 - Fixed Double (Forms only)
  221.  
  222. ' DragMode (controls)
  223. Global Const MANUAL = 0                ' 0 - Manual
  224. Global Const AUTOMATIC = 1             ' 1 - Automatic
  225.  
  226. ' DrawMode (form, picture box, Printer)
  227. Global Const BLACKNESS = 1             ' 1 - Blackness
  228. Global Const NOT_MERGE_PEN = 2         ' 2 - Not Merge Pen
  229. Global Const MASK_NOT_PEN = 3          ' 3 - Mask Not Pen
  230. Global Const NOT_COPY_PEN = 4          ' 4 - Not Copy Pen
  231. Global Const MASK_PEN_NOT = 5          ' 5 - Mask Pen Not
  232. Global Const INVERT = 6                ' 6 - Invert
  233. Global Const XOR_PEN = 7               ' 7 - Xor Pen
  234. Global Const NOT_MASK_PEN = 8          ' 8 - Not Mask Pen
  235. Global Const MASK_PEN = 9              ' 9 - Mask Pen
  236. Global Const NOT_XOR_PEN = 10          ' 10 - Not Xor Pen
  237. Global Const NOP = 11                  ' 11 - Nop
  238. Global Const MERGE_NOT_PEN = 12        ' 12 - Merge Not Pen
  239. Global Const COPY_PEN = 13             ' 13 - Copy Pen
  240. Global Const MERGE_PEN_NOT = 14        ' 14 - Merge Pen Not
  241. Global Const MERGE_PEN = 15            ' 15 - Merge Pen
  242. Global Const WHITENESS = 16            ' 16 - Whiteness
  243.  
  244. ' DrawStyle (form, picture box, Printer)
  245. Global Const SOLID = 0                 ' 0 - Solid
  246. Global Const DASH = 1                  ' 1 - Dash
  247. Global Const DOT = 2                   ' 2 - Dot
  248. Global Const DASH_DOT = 3              ' 3 - Dash-Dot
  249. Global Const DASH_DOT_DOT = 4          ' 4 - Dash-Dot-Dot
  250. Global Const INVISIBLE = 5             ' 5 - Invisible
  251. Global Const INSIDE_SOLID = 6          ' 6 - Inside Solid
  252.  
  253. ' FillStyle (form, picture box, Printer)
  254. ' Global Const SOLID = 0               ' 0 - Solid
  255. Global Const TRANSPARENT = 1           ' 1 - Transparent
  256. Global Const HORIZONTAL_LINE = 2       ' 2 - Horizontal Line
  257. Global Const VERTICAL_LINE = 3         ' 3 - Vertical Line
  258. Global Const UPWARD_DIAGONAL = 4       ' 4 - Upward Diagonal
  259. Global Const DOWNWARD_DIAGONAL = 5     ' 5 - Downward Diagonal
  260. Global Const CROSS = 6                 ' 6 - Cross
  261. Global Const DIAGONAL_CROSS = 7        ' 7 - Diagonal Cross
  262.  
  263. ' LinkMode (controls)
  264. ' Global Const NONE = 0                ' 0 - None
  265. Global Const HOT = 1                   ' 1 - Hot
  266. Global Const COLD = 2                  ' 2 - Cold
  267.  
  268. ' LinkMode (form)
  269. ' Global Const NONE = 0                ' 0 - None
  270. Global Const SERVER = 1                ' 1 - Server
  271.  
  272. ' MousePointer (form, controls)
  273. Global Const DEFAULT = 0               ' 0 - Default
  274. Global Const ARROW = 1                 ' 1 - Arrow
  275. Global Const CROSSHAIR = 2             ' 2 - Cross
  276. Global Const IBEAM = 3                 ' 3 - I-Beam
  277. Global Const ICON_POINTER = 4          ' 4 - Icon
  278. Global Const SIZE_POINTER = 5          ' 5 - Size
  279. Global Const SIZE_NE_SW = 6            ' 6 - Size NE SW
  280. Global Const SIZE_N_S = 7              ' 7 - Size N S
  281. Global Const SIZE_NW_SE = 8            ' 8 - Size NW SE
  282. Global Const SIZE_W_E = 9              ' 9 - Size W E
  283. Global Const UP_ARROW = 10             ' 10 - Up Arrow
  284. Global Const HOURGLASS = 11            ' 11 - Hourglass
  285. Global Const NO_DROP = 12              ' 12 - No drop
  286.  
  287. ' ScaleMode (form, picture box, Printer)
  288. Global Const USER = 0                  ' 0 - User
  289. Global Const TWIPS = 1                 ' 1 - Twip
  290. Global Const POINTS = 2                ' 2 - Point
  291. Global Const PIXELS = 3                ' 3 - Pixel
  292. Global Const CHARACTERS = 4            ' 4 - Character
  293. Global Const INCHES = 5                ' 5 - Inch
  294. Global Const MILLIMETERS = 6           ' 6 - Millimeter
  295. Global Const CENTIMETERS = 7           ' 7 - Centimeter
  296.  
  297. ' ScrollBar (text box)
  298. ' Global Const NONE = 0                ' 0 - None
  299. Global Const HORIZONTAL = 1            ' 1 - Horizontal
  300. Global Const VERTICAL = 2              ' 2 - Vertical
  301. Global Const BOTH = 3                  ' 3 - Both
  302.  
  303. ' Value (check box)
  304. Global Const UNCHECKED = 0             ' 0 - Unchecked
  305. Global Const CHECKED = 1               ' 1 - Checked
  306. Global Const GRAYED = 2                ' 2 - Grayed
  307.  
  308. ' WindowState (form)
  309. Global Const NORMAL = 0                ' 0 - Normal
  310. Global Const MINIMIZED = 1             ' 1 - Minimized
  311. Global Const MAXIMIZED = 2             ' 2 - Maximized
  312.  
  313. '------------------------------------------------------------------
  314. '                       HighEdit for Visual Basic
  315. '
  316. '                Global Definitions and Export-Functions
  317. '
  318. '------------------------------------------------------------------
  319.  
  320. '--------------
  321. ' DialogBox ID
  322. '--------------
  323.  
  324. Global Const IDOK = 1
  325. Global Const IDCANCEL = 2
  326. Global Const IDABORT = 3
  327. Global Const IDRETRY = 4
  328. Global Const IDIGNORE = 5
  329. Global Const IDYES = 6
  330. Global Const IDNO = 7
  331.  
  332. '----------
  333. ' Controls
  334. '----------
  335.  
  336. Global Const VBS_ICONBAR = 1
  337. Global Const VBS_RULER = 2
  338. Global Const VBS_TAB = 4
  339. Global Const VBS_STATUSLINE = 8
  340. Global Const VBS_HIGHEDIT = 32
  341. Global Const VBS_ALL = 0
  342.  
  343. '---------
  344. ' Drucken
  345. '---------
  346.  
  347. Global Const PRINT_END = 0
  348. Global Const PRINT_START = 1
  349. Global Const PRINT_FULLDOCUMENT = 4
  350. Global Const PRINT_INSERTDOCUMENT = 5
  351.  
  352. '---------
  353. ' Style
  354. '---------
  355.  
  356. Global Const ATTR_STANDARD = 0
  357. Global Const ATTR_BOLD = 1
  358. Global Const ATTR_UNDERLINE = 2
  359. Global Const ATTR_ITALIC = 4
  360. Global Const ATTR_STRIKEOUT = 8
  361. Global Const ATTR_SUBSCRIPT = 16
  362. Global Const ATTR_SUPERSCRIPT = 32
  363.  
  364. Global Const CURRENT_ATTRIBUTE = 255
  365.  
  366. '-----------
  367. ' Font Mode
  368. '-----------
  369.  
  370. Global Const FONT_TYP = &HF
  371.  
  372. Global Const FONT_DISPLAY = &H0
  373. Global Const FONT_PRINTER = &H1
  374. Global Const FONT_LOGICAL = &H2
  375.  
  376. Global Const FONT_SET = &HF0
  377.  
  378. Global Const FONT_SET_NONE = &H0
  379. Global Const FONT_SET_STYLE = &H10
  380. Global Const FONT_SET_COLOR = &H20
  381. Global Const FONT_SET_NAME = &H40
  382. Global Const FONT_SET_SIZE = &H80
  383.  
  384. Global Const FONT_SET_ALL = FONT_SET_STYLE + FONT_SET_COLOR + FONT_SET_NAME + FONT_SET_SIZE
  385.  
  386. '-----------
  387. ' Font Pitch
  388. '-----------
  389.  
  390. Global Const DEFAULT_PITCH = &H0
  391. Global Const FIXED_PITCH = &H1
  392. Global Const VARIABLE_PITCH = &H2
  393.  
  394. '------------
  395. ' Font Family
  396. '------------
  397.  
  398. Global Const FF_DONTCARE = &H0
  399. Global Const FF_ROMAN = &H10
  400. Global Const FF_SWISS = &H20
  401. Global Const FF_MODERN = &H30
  402. Global Const FF_SCRIPT = &H40
  403. Global Const FF_DECORATIVE = &H50
  404.  
  405. '------------------------------------------------------------------------
  406. ' User Defined Fields - For DEMO Only!
  407. '------------------------------------------------------------------------
  408.  
  409. Global Const TYP_TEXT = 0
  410. Global Const TYP_USER = 10
  411.  
  412. Global Const TYP_SHAREDPF = TYP_USER + 100
  413.  
  414. Global Const TYP_NAME = TYP_SHAREDPF + 10
  415. Global Const TYP_ADD1 = TYP_SHAREDPF + 11
  416. Global Const TYP_ADD2 = TYP_SHAREDPF + 12
  417. Global Const TYP_CITY = TYP_SHAREDPF + 13
  418. Global Const TYP_STATE = TYP_SHAREDPF + 14
  419. Global Const TYP_ZIP = TYP_SHAREDPF + 15
  420. Global Const TYP_DATE = TYP_SHAREDPF + 16
  421.  
  422.  
  423. '--------------
  424. ' Color Constants
  425. '--------------
  426.  
  427. Global Const RGB_BLACK = &H0&
  428. Global Const RGB_BLUE = &HFF0000
  429. Global Const RGB_CYAN = &HFFFF00
  430. Global Const RGB_GREEN = &HFF00&
  431. Global Const RGB_MAGENTA = &HFF00FF
  432. Global Const RGB_RED = &HFF&
  433. Global Const RGB_YELLOW = &HFFFF&
  434. Global Const RGB_WHITE = &HFFFFFF
  435.  
  436. Global Const RGB_DKBLUE = &H7F0000
  437. Global Const RGB_DKCYAN = &H7F7F00
  438. Global Const RGB_DKGREEN = &H7F00&
  439. Global Const RGB_DKMAGENTA = &H7F007F
  440. Global Const RGB_DKRED = &H7F&
  441. Global Const RGB_DKYELLOW = &H7F7F&
  442.  
  443. Global Const RGB_GRAY = &H7F7F7F
  444. Global Const RGB_LTGRAY = &HC0C0C0
  445.  
  446. Global Const CURRENT_COLOR = &HFFFFFFFF
  447.  
  448. '-----------------
  449. ' Flags for lines
  450. '-----------------
  451.  
  452. Global Const ALIGN_MASK = 3
  453.  
  454. Global Const ALIGN_LEFT = 0
  455. Global Const ALIGN_RIGHT = 1
  456. Global Const ALIGN_CENTER = 2
  457. Global Const ALIGN_JUSTIFY = 3
  458.  
  459. Global Const LINE_VISIBLE = 4
  460. Global Const LINE_SOFTRETURN = 8
  461. Global Const LINE_HARDRETURN = 16
  462. Global Const LINE_FORMFEED = 32
  463. Global Const LINE_TABULATOR = 128
  464.  
  465. Global Const SPACING_MASK = 768
  466.  
  467. Global Const SPACING_ONE = 0
  468. Global Const SPACING_ONEHALF = 1
  469. Global Const SPACING_DOUBLE = 2
  470.  
  471. '-----------------
  472. ' Flags for Search
  473. '-----------------
  474.  
  475. Global Const SEARCH_FORWARD = 0
  476. Global Const SEARCH_CASE = 2
  477. Global Const SEARCH_WORD = 4
  478. Global Const SEARCH_CURSOR = 8
  479. Global Const SEARCH_BACK = 16
  480. Global Const SEARCH_INIT = 32
  481.  
  482. '--------------------
  483. ' Result of Search
  484. '--------------------
  485.  
  486. Global Const SEARCH_NOTFOUND = 0
  487. Global Const SEARCH_FOUND = 1
  488. Global Const SEARCH_ERROR = 2
  489.  
  490. '---------------------
  491. ' Flags for HE_NEXTPF
  492. '---------------------
  493.  
  494. Global Const NEXTPF_BACKWARD = 0
  495. Global Const NEXTPF_FORWARD = 1
  496. Global Const NEXTPF_ONLYEDITABLE = 2
  497. Global Const NEXTPF_ONLYVISIBLE = 16
  498. Global Const NEXTPF_FILEENDSTOP = 32
  499.  
  500. '-------------------------
  501. ' Flags for Input-Fields
  502. '-------------------------
  503.  
  504. Global Const PF_ALIGNMASK = 3
  505.  
  506. Global Const PF_ALIGNLEFT = 0
  507. Global Const PF_ALIGNRIGHT = 1
  508.  
  509. Global Const PF_EDITABLE = 4
  510. Global Const PF_FUNCTION = 8
  511. Global Const PF_VISIBLE = 32
  512. Global Const PF_LINEREMOVE = 64
  513. Global Const PF_FIXEDSIZE = 128
  514.  
  515. '---------------------------------------------
  516. ' Format for HEAppend-, HELoad- und HESaveDoc
  517. '---------------------------------------------
  518.  
  519. Global Const FILEFORMAT_HIGHEDIT = 0
  520. Global Const FILEFORMAT_ANSI = 1
  521. Global Const FILEFORMAT_OEM = 2
  522. Global Const FILEFORMAT_RTF = 3
  523.  
  524. ' constants for opening/saving files
  525. Global Const OF_READ = &H0
  526. Global Const OF_WRITE = &H1
  527. Global Const OF_READWRITE = &H2
  528. Global Const OF_SHARE_COMPAT = &H0
  529. Global Const OF_SHARE_EXCLUSIVE = &H10
  530. Global Const OF_SHARE_DENY_WRITE = &H20
  531. Global Const OF_SHARE_DENY_READ = &H30
  532. Global Const OF_SHARE_DENY_NONE = &H40
  533. Global Const OF_PARSE = &H100
  534. Global Const OF_DELETE = &H200
  535. Global Const OF_VERIFY = &H400
  536. Global Const OF_SEARCH = &H400
  537. Global Const OF_CANCEL = &H800
  538. Global Const OF_CREATE = &H1000
  539. Global Const OF_PROMPT = &H2000
  540. Global Const OF_EXIST = &H4000
  541. Global Const OF_REOPEN = &H8000
  542.  
  543. 'HESaveDoc must always use this value
  544. Global Const OF_DEFHESAVE = OF_CREATE Or OF_READWRITE Or OF_SHARE_DENY_NONE
  545.  
  546. '------------
  547. ' Units
  548. '------------
  549.  
  550. Global Const UNIT_CM = 0
  551. Global Const UNIT_IN = 1
  552.  
  553. 'HECMDLG.BI===================================================================================
  554. ' These are the user-defined TYPE declarations for hecmdlg.vbx common dialog routines
  555. ' If you are using VB 2, you can File-Add File the HECMDLG.BI file that contains all
  556. ' of these declarations instead of putting them in with the HighEdit routines
  557. ' and you can delete everything between the double lines
  558.  
  559.     Type MhChooseFontType       ' Special TYPEs used by MhChooseFont
  560.      hWnd   As Integer      ' Form's hwnd
  561.      hDC    As Integer      ' Identifies device or information
  562.                 ' context of the printer listed
  563.                 ' in the dialog box. Use MhPrintDlg
  564.                 ' to select printer and set the
  565.                 ' PD_RETURNDC or PD_RETURNIC flags.
  566.                 ' Use Form.HDC to get screen fonts.
  567.                 ' In either case, you must also
  568.                 ' specify CF_PRINTERFONTS flag,otherwise
  569.                 ' this is ignored.
  570.      logfont    As Long     ' Used internally
  571.      PointSize  As Integer  ' In units of 1/10th of a point
  572.      Flags  As Long         ' See below
  573.      RGBColor   As Long     ' If the CF_EFFECTS flag is set, this field contains an RGB value which the
  574.                 ' ChooseFont function should use to set the text color. After the user
  575.                 ' dismisses the dialog, this field contains the RGB value of the color which the
  576.                 ' user selected.
  577.      Reserved2  As Long         ' Used internally
  578.      Reserved3  As Long         ' Ditto
  579.      Reserved4  As Long         ' Ditto
  580.      Reserved5  As Integer      ' Ditto
  581.      Reserved6  As Long         ' Ditto
  582.      FontType   As Integer      ' Specifies the type of the selected font:
  583.         '  SIMULATED_FONTTYPE   Specifies that the font is simulated by GDI.
  584.         '  PRINTER_FONTTYPE Specifies that the font is a printer font.
  585.         '  SCREEN_FONTTYPE  Specifies that the font is a screen font.
  586.      MinSize    As Integer      ' If the CF_LIMITSIZE flag is set, this specifies
  587.         ' the minimum allowable point size.
  588.      MaxSize    As Integer      ' Same as MinSize but for maximum
  589.     End Type
  590.     Type MhLogFontType
  591.     FontHeight As Integer
  592.     FontWidth As Integer
  593.     FontEscapement As Integer
  594.     FontOrientation As Integer
  595.     FontWeight As Integer
  596.     FontItalic As String * 1
  597.     FontUnderline As String * 1
  598.     FontStrikeOut As String * 1
  599.     FontCharSet As String * 1
  600.     FontOutPrecision As String * 1
  601.     FontClipPrecision As String * 1
  602.     FontQuality As String * 1
  603.     FontPitchAndFamily As String * 1
  604.     FontFaceName As String * 32
  605.     End Type
  606.  
  607. '---------------------------------------------------------------------------
  608.     Type MhPrintDlgType
  609.     ' Special TYPE used by MhPrintDlg
  610.  
  611.      hWnd As Integer            ' hWnd of your form
  612.      DevMode As Integer         ' Used by other routines
  613.             ' If non-zero on entry, used as default
  614.             ' (should be zero first time you call
  615.             '  to get default printer values loaded)
  616.      DevNames As Integer        ' Used by other routines
  617.             ' If non-zero on entry, used as default
  618.             ' (should be zero first time you call
  619.             '  to get default printer values loaded)
  620.      hDC As Integer             ' Used by other routines
  621.             ' If non-zero on entry, used as default
  622.             ' (should be zero first time you call
  623.             '  to get default printer values loaded)
  624.      Flags As Long              ' See below
  625.      FromPage As Integer        ' First page to print
  626.      ToPage As Integer          ' Last page to print
  627.      MinPage As Integer         ' Minimum allowed value in From/To controls
  628.      MaxPage As Integer         ' Maximum ""
  629.      Copies As Integer          ' How many copies?
  630.     End Type
  631.  
  632. Type MhGetFileType
  633. ' Special TYPEs used by File Dialog routines
  634.  
  635.      hWnd As Integer            ' Form's hWnd
  636.      FilterIndex As Long        ' Which Filter to use as default
  637.      InitFileName As String     ' Used to initialize File Name edit control
  638.      FormCaption As String      ' Caption for File Form
  639.      InitDir As String          ' Initial directory. Null for CurDir$
  640.      DefaultExtension As String     ' Default extension to use (no period)
  641.      HowManyFilters As Integer      ' In the other array
  642.      Flags As Long          ' See manual
  643.      RawNamePos As Integer      ' Returned as Instr in Result$ where raw file name begins
  644.      ExtensionPos As Integer        ' Returned as Instr in Result$ where extension begins
  645. End Type
  646.  
  647. Type MhFileFilterType
  648.      Description As String      ' i.e., "Text Files"
  649.      Mask As String         '       "*.txt;*.doc;*.bas
  650. End Type
  651.  
  652. ' MhChooseColor values
  653. Global Const CC_CANCELLED = -100
  654. Global Const CC_RGBINIT = 1
  655. Global Const CC_FULLOPEN = 2
  656. Global Const CC_PREVENTFULLOPEN = 4
  657. Global Const CC_SHOWHELP = 8
  658.  
  659. ' MhGetOpenFileName and MhGetSaveFileName Values
  660. Global Const OFN_READONLY = &H1
  661. Global Const OFN_OVERWRITEPROMPT = &H2
  662. Global Const OFN_HIDEREADONLY = &H4
  663. Global Const OFN_NOCHANGEDIR = &H8
  664. Global Const OFN_SHOWHELP = &H10
  665. Global Const OFN_EXTENTIONDIFFERENT = &H400
  666. Global Const OFN_PATHMUSTEXIST = &H800
  667. Global Const OFN_FILEMUSTEXIST = &H1000
  668. Global Const OFN_CREATEPROMPT = &H2000
  669. 'Global Const OF_SHARE_EXCLUSIVE = &H10
  670. 'Global Const OF_SHARE_DENY_WRITE = &H20
  671. 'Global Const OF_SHARE_DENY_READ = &H30
  672. 'Global Const OF_SHARE_DENY_NONE = &H40
  673. 'Global Const OF_CANCEL = &H800
  674. 'Global Const OF_PROMPT = &H2000
  675.  
  676. ' MhFindText and MhReplaceText Values
  677. Global Const FR_DOWN = &H1
  678. Global Const FR_WHOLEWORD = &H2
  679. Global Const FR_MATCHCASE = &H4
  680. Global Const FR_FINDNEXT = &H8
  681. Global Const FR_REPLACE = &H10
  682. Global Const FR_REPLACEALL = &H20
  683. Global Const FR_SHOWHELP = &H80
  684. Global Const FR_NOUPDOWN = &H400
  685. Global Const FR_NOMATCHCASE = &H800
  686. Global Const FR_NOWHOLEWORD = &H1000
  687.  
  688. ' MhPrintDlg Values
  689. Global Const PD_ALLPAGES = &H0
  690. Global Const PD_SELECTION = &H1
  691. Global Const PD_PAGENUMS = &H2
  692. Global Const PD_NOSELECTION = &H4
  693. Global Const PD_NOPAGENUMS = &H8
  694. Global Const PD_COLLATE = &H10
  695. Global Const PD_PRINTTOFILE = &H20
  696. Global Const PD_PRINTSETUP = &H40
  697. Global Const PD_NOWARNING = &H80
  698. Global Const PD_RETURNDC = &H100
  699. Global Const PD_RETURNIC = &H200
  700. Global Const PD_RETURNDEFAULT = &H400
  701. Global Const PD_SHOWHELP = &H800
  702. Global Const PD_ENABLEPRINTHOOK = &H1000
  703. Global Const PD_ENABLESETUPHOOK = &H2000
  704. Global Const PD_ENABLEPRINTTEMPLATE = &H4000
  705. Global Const PD_ENABLESETUPTEMPLATE = &H8000
  706. Global Const PD_ENABLEPRINTTEMPLATEHANDLE = &H10000
  707. Global Const PD_ENABLESETUPTEMPLATEHANDLE = &H20000
  708. Global Const PD_USEDEVMODECOPIES = &H40000
  709. Global Const ANSI_CHARSET = 0
  710. Global Const SYMBOL_CHARSET = 2
  711. Global Const SHIFTJIS_CHARSET = 128
  712. Global Const OEM_CHARSET = 255
  713. Global Const DEFAULT_QUALITY = 0
  714. Global Const DRAFT_QUALITY = 1
  715. Global Const PROOF_QUALITY = 2
  716. 'Global Const DEFAULT_PITCH = 0
  717. 'Global Const FIXED_PITCH = 1
  718. 'Global Const VARIABLE_PITCH = 2
  719.     
  720. ' Font Families
  721. 'Global Const FF_DONTCARE = 0  ' Don't care or don't know.
  722. 'Global Const FF_ROMAN = 16    ' Variable stroke width, serifed. Times Roman, Century Schoolbook, etc.
  723. 'Global Const FF_SWISS = 32    ' Variable stroke width, sans-serifed. Helvetica, Swiss, etc.
  724. 'Global Const FF_MODERN = 48   ' Constant stroke width, serifed or sans-serifed. Pica, Elite, Courier, etc.
  725. 'Global Const FF_SCRIPT = 64   ' Cursive, etc.
  726. 'Global Const FF_DECORATIVE = 80 ' Old English, etc.
  727.  
  728. ' Font Weights
  729. Global Const FW_DONTCARE = 0
  730. Global Const FW_THIN = 100
  731. Global Const FW_EXTRALIGHT = 200
  732. Global Const FW_LIGHT = 300
  733. Global Const FW_NORMAL = 400
  734. Global Const FW_MEDIUM = 500
  735. Global Const FW_SEMIBOLD = 600
  736. Global Const FW_BOLD = 700
  737. Global Const FW_EXTRABOLD = 800
  738. Global Const FW_HEAVY = 900
  739. Global Const FW_ULTRALIGHT = FW_EXTRALIGHT
  740. Global Const FW_REGULAR = FW_NORMAL
  741. Global Const FW_DEMIBOLD = FW_SEMIBOLD
  742. Global Const FW_ULTRABOLD = FW_EXTRABOLD
  743. Global Const FW_BLACK = FW_HEAVY
  744.  
  745. ' MhChooseFont Values
  746. Global Const CF_SCREENFONTS = &H1
  747. Global Const CF_PRINTERFONTS = &H2
  748. Global Const CF_BOTH = &H3  '  (CF_SCREENFONTS | CF_PRINTERFONTS)
  749. Global Const CF_SHOWHELP = &H4
  750. Global Const CF_EFFECTS = &H100
  751. Global Const CF_APPLY = &H200
  752. Global Const CF_ANSIONLY = &H400
  753. Global Const CF_NOVECTORFONTS = &H800
  754. Global Const CF_NOSIMULATIONS = &H1000
  755. Global Const CF_LIMITSIZE = &H2000
  756. Global Const CF_FIXEDPITCHONLY = &H4000
  757. Global Const CF_WYSIWYG = &H8000              '  must also have CF_SCREENFONTS & CF_PRINTERFONTS
  758. Global Const CF_FORCEFONTEXIST = &H10000
  759. Global Const CF_SCALABLEONLY = &H20000
  760. Global Const CF_TTONLY = &H40000
  761. Global Const CF_INITTOLOGFONTSTRUCT = &H40      'must use this to set the font structure upon entry
  762. Global Const SIMULATED_FONTTYPE = &H8000
  763. Global Const PRINTER_FONTTYPE = &H4000
  764. Global Const SCREEN_FONTTYPE = &H2000
  765.  
  766.     Declare Function MhCtrlHwnd% Lib "hecmdlg.vbx" (X As Control)
  767.     Declare Function MhChooseColor& Lib "hecmdlg.vbx" (ByVal hWnd%, ByVal DefaultColor&, CustomColors&, ByVal Flags&)
  768.     Declare Function MhChooseFont% Lib "hecmdlg.vbx" (Y As MhLogFontType, X As MhChooseFontType)
  769.     Declare Function MhGetFileTitle$ Lib "hecmdlg.vbx" (ByVal A$)
  770.     Declare Function MhGetOpenFileName$ Lib "hecmdlg.vbx" (X As MhGetFileType, Y As MhFileFilterType)
  771.     Declare Function MhGetSaveFileName$ Lib "hecmdlg.vbx" (X As MhGetFileType, Y As MhFileFilterType)
  772.     Declare Function MhLoadCommDlg% Lib "hecmdlg.vbx" ()
  773.     Declare Function MhPrintDlg% Lib "hecmdlg.vbx" (X As MhPrintDlgType)
  774.     Declare Function MhPrintDlgDef% Lib "hecmdlg.vbx" (X As MhPrintDlgType)
  775.     Declare Function MhFindText% Lib "hecmdlg.vbx" (ByVal KeyCode%, ByVal hWnd%, Flags&, Find$)
  776.     Declare Function MhReplaceText% Lib "hecmdlg.vbx" (Replace$, ByVal KeyCode%, ByVal hWnd%, Flags&, Find$)
  777.     Declare Sub MhKillDialog Lib "hecmdlg.vbx" ()
  778.     Declare Function MhGetTextDialog% Lib "hecmdlg.vbx" (Replace$, Flags&, Find$)
  779.     Declare Function MhEcode% Lib "hecmdlg.vbx" ()
  780.  
  781.     'CTL3D.DLL routines and constants
  782.     '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  783.     Declare Function Ctl3dAutoSubclass Lib "ctl3d.dll" (ByVal HANDLE%) As Integer
  784.     Declare Function Ctl3dRegister Lib "ctl3d.dll" (ByVal HANDLE%) As Integer
  785.     Declare Function Ctl3dUnRegister Lib "ctl3d.dll" (ByVal HANDLE%) As Integer
  786.     Declare Function MhGethInstance Lib "hecmdlg.vbx" () As Integer
  787.     
  788.     Global Const CTL3D_ALL = &HFFFF
  789. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  790.  
  791. 'End of HECMDLG.BI==================================================================
  792.  
  793. '-------------------
  794. ' Exported Functions
  795. '-------------------
  796. '
  797. '~~~~~~~~~~HE Custom Dialogs~~~~~~~~~~~~~~~~~~~~~~~~~~
  798. Declare Function HEAppendDlg Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  799. Declare Function HEBackColorDlg Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  800. Declare Function HEColorDlg Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  801. Declare Function HEDeleteDlg Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  802. Declare Function HEDocInfoDlg Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  803. Declare Function HEFontDlg Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  804. Declare Function HEFormatDocDlg Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  805. Declare Function HELoadDlg Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  806. Declare Function HEReplaceDlg Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  807. Declare Function HESaveDlg Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  808. Declare Function HESearchDlg Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  809. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  810.  
  811. '~~~~~~~~~~~remainder are alphabetical~~~~~~~~~~~~~~~~~
  812. Declare Function HEAddAllPFFlags Lib "HEVB.VBX" (ByVal hWnd%, ByVal iFlags%, ByVal iLevel%, iTypList%) As Integer
  813. Declare Function HEAddFunctionPF Lib "HEVB.VBX" (ByVal hWnd%, ByVal iTyp%, ByVal sName$) As Integer
  814. Declare Function HEAddPFFlags Lib "HEVB.VBX" (ByVal hWnd%, ByVal iFlags%) As Integer
  815. Declare Function HEappendDoc Lib "HEVB.VBX" (ByVal hWnd%, ByVal lpFileName$, ByVal iFormat%) As Integer
  816.  
  817. Declare Function HECanCopy Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  818. Declare Function HECanPaste Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  819. Declare Function HEChangeFunctionPF Lib "HEVB.VBX" (ByVal hWnd%, ByVal iTyp%, ByVal szNewText$) As Integer
  820. Declare Sub HECharInsert Lib "HEVB.VBX" (ByVal hWnd%, ByVal iChar%)
  821. Declare Sub HEClear Lib "HEVB.VBX" (ByVal hWnd%)
  822. Declare Function HEClearAllPFFlags Lib "HEVB.VBX" (ByVal hWnd%, ByVal iFlags%, ByVal iLevel%, iTypList%) As Integer
  823. Declare Function HEClearPFFlags Lib "HEVB.VBX" (ByVal hWnd%, ByVal iFlags%) As Integer
  824. Declare Function HECloseActivePF Lib "HEVB.VBX" (ByVal hWnd%, ByVal iRedraw%) As Integer
  825. Declare Function HECloseChild Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  826. Declare Sub HECopy Lib "HEVB.VBX" (ByVal hWnd%)
  827. Declare Function hecopydata Lib "HEVB.VBX" (ByVal hWnd%, sHighEdit$, sText$) As Integer
  828. Declare Sub HECursorEnd Lib "HEVB.VBX" (ByVal hWnd%)
  829. Declare Sub HECursorHome Lib "HEVB.VBX" (ByVal hWnd%)
  830. Declare Sub HECut Lib "HEVB.VBX" (ByVal hWnd%)
  831.  
  832. Declare Function HEDeletePF Lib "HEVB.VBX" (ByVal hWnd%, ByVal iRedraw%) As Integer
  833. Declare Sub HEDisplayStatusText Lib "HEVB.VBX" (ByVal hWnd%, ByVal lpText$)
  834.  
  835. Declare Sub HEEndSession Lib "HEVB.VBX" (ByVal hWnd%, ByVal iParam%)
  836. Declare Sub HEExtSetRedraw Lib "HEVB.VBX" (ByVal hWnd%, ByVal iRedraw%, ByVal iUpdate%, ByVal iSaveWindow%)
  837. Declare Function HEExtInsertFunctionPF Lib "HEVB.VBX" (ByVal hWnd%, ByVal iTyp%, ByVal iFlags%, ByVal lpText$) As Integer
  838.  
  839. Declare Sub HEFormatDoc Lib "HEVB.VBX" (ByVal hWnd%)
  840.  
  841. Declare Function HEGetActiveHighEdit Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  842. Declare Function HEGetActiveStatusLine Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  843. Declare Function HEGetAlign Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  844. Declare Sub HEGetChars Lib "HEVB.VBX" (ByVal hWnd%, lpiLeftChar%, lpiRightChar%)
  845. Declare Function HEGetColorIndex Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  846. Declare Sub HEGetCursor Lib "HEVB.VBX" (ByVal hWnd%, lpiCursorX%, lplCursorY&)
  847. Declare Function HEGetFileName Lib "HEVB.VBX" (ByVal hWnd%, hlstr$) As Integer
  848. Declare Function HEGetFont Lib "HEVB.VBX" (ByVal hWnd%, ByVal iFont%, iHeight%, lRGB&, iPitch%, iFamily%, ByVal sName$) As Integer
  849. Declare Function HEGetFontHandle Lib "HEVB.VBX" (ByVal hWnd%, ByVal iIndex%, ByVal iDevice%) As Integer
  850. Declare Function HEGetFontIndex Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  851. Declare Function HEGetFunctionPFData Lib "HEVB.VBX" (ByVal hWnd%, ByVal iTyp%, ByVal Buffer$) As Integer
  852. Declare Function HEGetFunctionPFDataLen Lib "HEVB.VBX" (ByVal hWnd%, ByVal iTyp%) As Integer
  853. Declare Function HEGetFunctionPFName Lib "HEVB.VBX" (ByVal hWnd%, ByVal iTyp%, ByVal Buffer$) As Integer
  854. Declare Function HEGetFunctionPFNameLen Lib "HEVB.VBX" (ByVal hWnd%, ByVal iTyp%) As Integer
  855. Declare Function HEGetLine Lib "HEVB.VBX" (ByVal hWnd%, ByVal lpBuffer$, ByVal iMaxLen%) As Integer
  856. Declare Function HEGetLineCount Lib "HEVB.VBX" (ByVal hWnd%) As Long
  857. Declare Function HEGetLineLength Lib "HEVB.VBX" (ByVal hWnd%, ByVal lLine&) As Integer
  858. Declare Sub HEGetMargins Lib "HEVB.VBX" (ByVal hWnd%, lpiLeft%, lpiTop%)
  859. Declare Sub HEGetPage Lib "HEVB.VBX" (ByVal hWnd%, lpwTextPage%, lpwMaxPage%)
  860. Declare Function HEGetPathName Lib "HEVB.VBX" (ByVal hWnd%, lhstr$) As Integer
  861. Declare Function HEGetPFBkColor Lib "HEVB.VBX" (ByVal hWnd%) As Long
  862. Declare Function HEGetPFData Lib "HEVB.VBX" (ByVal hWnd%, ByVal sBuffer$) As Integer
  863. Declare Function HEGetPFDataLen Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  864. Declare Function HEGetPFFlags Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  865. Declare Sub HEGetPhysicalDim Lib "HEVB.VBX" (ByVal hWnd%, lpiWidth%, lpiHeight%)
  866. Declare Sub HEGetPhysicalMargins Lib "HEVB.VBX" (ByVal hWnd%, lpiLeft%, lpwTop%)
  867. Declare Function HEGetPrinterCursorHeight Lib "HEVB.VBX" (ByVal hWnd%) As Long
  868. Declare Function HEGetPrinterDC Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  869. Declare Function HEGetPrinterIC Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  870. Declare Sub HEGetPrinterDim Lib "HEVB.VBX" (ByVal hWnd%, lpiWidth%, lpwHeight%)
  871. Declare Function HEGetPrinterLineHeight Lib "HEVB.VBX" (ByVal hWnd%) As Long
  872. Declare Function HEGetRGB Lib "HEVB.VBX" (ByVal hWnd%, ByVal iIndex%) As Long
  873. Declare Function hegetselectedtext Lib "HEVB.VBX" (ByVal hWnd%, sBuffer$) As Integer
  874. Declare Sub HEGetSelection Lib "HEVB.VBX" (ByVal hWnd%, lpiXWidth%, lplYWidth&)
  875. Declare Function HEGetSelectionStart Lib "HEVB.VBX" (ByVal hWnd%, Col%, Row&) As Integer
  876. Declare Function HEGetSpacing Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  877. Declare Function HEGetStyle Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  878. Declare Function HEGetTabWidth Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  879. Declare Function HEGetText Lib "HEVB.VBX" (ByVal hWnd%, ByVal lpBuffer$, ByVal iMaxLen%) As Integer
  880. Declare Sub HEGetTextDim Lib "HEVB.VBX" (ByVal hWnd%, lpiWidth%, lpiHeight%)
  881. Declare Function HEGetTyp Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  882. Declare Function HEGetUnit Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  883. Declare Sub HEGetVersion Lib "HEVB.VBX" (iMajor%, iMinor%, iInternal%)
  884.  
  885. Declare Sub HEInitNewDoc Lib "HEVB.VBX" (ByVal hWnd%)
  886. Declare Function HEInsertFunctionPF Lib "HEVB.VBX" (ByVal hWnd%, ByVal iTyp%, ByVal lpText$) As Integer
  887. Declare Function HEIsModified Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  888. Declare Function HEIsInsertMode Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  889. Declare Function HEIsLineBreak Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  890. Declare Function HEIsFormfeed Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  891. Declare Function HEIsGrayBk Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  892. Declare Function HEIsPFBkVisible Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  893. Declare Function HEIsTabVisible Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  894. Declare Function HEIsCRVisible Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  895. Declare Function HEIsSpaceVisible Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  896. Declare Function HEIsPFFunctionVisible Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  897. Declare Function HEIsPFGhost Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  898. Declare Function HEIsLineGhost Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  899. Declare Function HEIsPFActive Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  900. Declare Function HEIsReadOnly Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  901.  
  902. Declare Function HELoadDoc Lib "HEVB.VBX" (ByVal hWnd%, ByVal lpFileName$, ByVal iFormat%) As Integer
  903.  
  904. Declare Function HENextPF Lib "HEVB.VBX" (ByVal hWnd%, ByVal iFlags%, ByVal iLevel%, iTypList%) As Integer
  905.  
  906. Declare Sub HEPaginate Lib "HEVB.VBX" (ByVal hWnd%)
  907. Declare Sub HEPaginateHwnd Lib "HEVB.VBX" (ByVal hWnd%, ByVal hWndHead%, ByVal hWndFoot%)
  908. Declare Sub HEPaste Lib "HEVB.VBX" (ByVal hWnd%)
  909. Declare Function HEPasteData Lib "HEVB.VBX" (ByVal hWnd%, sHighEdit$, sText$) As Integer
  910. Declare Sub HEPrintDoc Lib "HEVB.VBX" (ByVal hWnd%)
  911. Declare Sub HEPrintDocParam Lib "HEVB.VBX" (ByVal hWnd%, ByVal iStartPage%, ByVal iEndPage%)
  912. Declare Sub HEPrintDocParamHwnd Lib "HEVB.VBX" (ByVal hWnd%, ByVal iStartPage%, ByVal iEndPage%, ByVal hWndHead%, ByVal hWndFoot%)
  913. Declare Sub HEPrintInsertDoc Lib "HEVB.VBX" (ByVal hWnd%, ByVal hdcPrinter%, ByVal x1%, ByVal y1%, ByVal x2%, ByVal y2%)
  914.  
  915. Declare Function HEQuickReplace Lib "HEVB.VBX" (ByVal hWnd%, ByVal lpText$, ByVal iLen%) As Integer
  916.  
  917. Declare Sub HERedraw Lib "HEVB.VBX" (ByVal hWnd%, ByVal iClear%)
  918. Declare Function HEReplaceSel Lib "HEVB.VBX" (ByVal hWnd%, ByVal szText$, ByVal iTextWidth%) As Integer
  919.  
  920. Declare Function HESaveDoc Lib "HEVB.VBX" (ByVal hWnd%, ByVal lpFileName$, ByVal iStyle%, ByVal iFormat%) As Integer
  921. Declare Function HESearch Lib "HEVB.VBX" (ByVal hWnd%, ByVal iFlags%, ByVal lpText$, ByVal iDisplayError%) As Integer
  922. Declare Function HESearchContinue Lib "HEVB.VBX" (ByVal hWnd%, ByVal iDisplayError%) As Integer
  923. Declare Function HESelectAll Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  924. Declare Function HESelectWord Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  925. Declare Function HESendMessage Lib "HEVB.VBX" (ByVal hWnd%, ByVal wMessage%, ByVal wParam%, ByVal lParam&) As Long
  926. Declare Sub HESetAlign Lib "HEVB.VBX" (ByVal hWnd%, ByVal iAlign%)
  927. Declare Function HESetAllPFFlags Lib "HEVB.VBX" (ByVal hWnd%, ByVal iFlags%, ByVal iLevel%, iTypList%) As Integer
  928. Declare Sub HESetControls Lib "HEVB.VBX" (ByVal hWnd%, ByVal iStyle%)
  929. Declare Function HESetCursor Lib "HEVB.VBX" (ByVal hWnd%, ByVal iXNew%, ByVal lYNew&) As Integer
  930. Declare Sub HESetCRVisible Lib "HEVB.VBX" (ByVal hWnd%, ByVal iVisible%)
  931. Declare Function HESetFont Lib "HEVB.VBX" (ByVal hWnd%, ByVal iHeight%, ByVal lRGB&, ByVal iPitch%, ByVal iFamily%, ByVal sName$, ByVal iMode%) As Integer
  932. Declare Sub HESetFileName Lib "HEVB.VBX" (ByVal hWnd%, ByVal lpFileName$)
  933. Declare Sub HESetGrayBk Lib "HEVB.VBX" (ByVal hWnd%, ByVal iGrayBk%)
  934. Declare Sub HESetInsertMode Lib "HEVB.VBX" (ByVal hWnd%, ByVal iInsertMode%)
  935. Declare Sub HESetLineBreak Lib "HEVB.VBX" (ByVal hWnd%, ByVal iBreak%)
  936. Declare Sub HESetLineGhost Lib "HEVB.VBX" (ByVal hWnd%, ByVal iVisible%)
  937. Declare Sub hesetmargins Lib "HEVB.VBX" (ByVal hWnd%, ByVal iLeft%, ByVal iTop%)
  938. Declare Sub HESetModified Lib "HEVB.VBX" (ByVal hWnd%, ByVal iModified%)
  939. Declare Sub HESetSpacing Lib "HEVB.VBX" (ByVal hWnd%, ByVal iLineSpacing%)
  940. Declare Sub HESetOffset Lib "HEVB.VBX" (ByVal hWnd%, ByVal iXOffset%, ByVal iYOffset%, ByVal iUpdate%)
  941. Declare Sub HESetPathName Lib "HEVB.VBX" (ByVal hWnd%, ByVal lpPathName$)
  942. Declare Sub HESetPFBkColor Lib "HEVB.VBX" (ByVal hWnd%, ByVal lRGB&)
  943. Declare Sub HESetPFBkVisible Lib "HEVB.VBX" (ByVal hWnd%, ByVal iVisible%)
  944. Declare Sub HESetPFFunctionVisible Lib "HEVB.VBX" (ByVal hWnd%, ByVal iVisible%)
  945. Declare Function HESetPFFlags Lib "HEVB.VBX" (ByVal hWnd%, ByVal iFlags%) As Integer
  946. Declare Sub HESetPFGhost Lib "HEVB.VBX" (ByVal hWnd%, ByVal iVisible%)
  947. Declare Sub HESetReadOnly Lib "HEVB.VBX" (ByVal hWnd%, ByVal iReadOnly%)
  948. Declare Sub HESetRedraw Lib "HEVB.VBX" (ByVal hWnd%, ByVal iRedraw%)
  949. Declare Sub HESetScrollBars Lib "HEVB.VBX" (ByVal hWnd%, ByVal iScrollBars%)
  950. Declare Function HESetSelection Lib "HEVB.VBX" (ByVal hWnd%, ByVal iXWidth%, ByVal lYWidth&) As Integer
  951. Declare Sub HESetSpaceVisible Lib "HEVB.VBX" (ByVal hWnd%, ByVal iVisible%)
  952. Declare Function HESetStyle Lib "HEVB.VBX" (ByVal hWnd%, ByVal iAttribute%, ByVal lColor&) As Integer
  953. Declare Sub HESetTabVisible Lib "HEVB.VBX" (ByVal hWnd%, ByVal iVisible%)
  954. Declare Sub HESetTabWidth Lib "HEVB.VBX" (ByVal hWnd%, ByVal iTabWidth%)
  955. Declare Sub HESetTextDim Lib "HEVB.VBX" (ByVal hWnd%, ByVal iWidth%, ByVal iHeight%)
  956. Declare Sub HESetUnit Lib "HEVB.VBX" (ByVal hWnd%, ByVal iUnit%)
  957.  
  958. Declare Function HEToggleFormFeed Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  959.  
  960. Declare Sub HEWinIniChange Lib "HEVB.VBX" (ByVal hWnd%, ByVal lParam&)
  961. Declare Function HEWriteProfile Lib "HEVB.VBX" (ByVal hWnd%) As Integer
  962.  
  963.  
  964.  
  965.  
  966.